Cevela about COBOL COBOL language - Home - Site Map - About Cevela - MX COBOL    <prev   next>
4.   Statements for I/O handling via keybord, screen and command line
For more see links to the main provider's on-line documentation.
For MX COBOL see Summary comment + FAQ and How to ..

display

                                                                 60-1
display  Lit-1  ...  [upon  Dev-2]  [no advancing]  [error-phrases*]
         Dat-1

error-phrases* [exception imperative-statements-1*] [not exception imperative-statements-2*] end-of-statement* end-display .
MX limitations: the no advancing and error-phrases* are not implemented

                                                                 02-2
display  Screen-1  [error-phrases*]

Remark: there are the formats with line+col in COBOL-02 and MF dialects MX limitations: - the error-phrases* are not implemented - the phrases line+col are not functional

accept

                                                                 60-1
accept  Dat-1  [from  Dev-2       ]
                      command-line                               MF-1

MX limitation: the phrase command-line is not implemented but there is ufd+ufo statement at disposal with possibility of the C-language solution

                                                                 02-2
accept  Screen-1  [error-phrases*]

Remark: there are the formats with line+col in COBOL-02 and MF dialects MX limitations: - the error-phrases* are not implemented - the phrases line+col are not functional

                                                                 74-3
accept  Dat-1  from  date  [yyyymmdd]
                     day  [yyyyddd]
                     time
                     day-of-week

MX limitations: - the phrases COBOL-02 yyyy are not implemented - obtained "yy" system-date for year 2000 and greater must be manually corrected from programmer because instead of hexa #30# etc is hexa #3a# etc - see following "acc-yy.cb" demo

MX COBOL demo                                               acc-yy.cb

000000 working-storage section. 1 DAT pic 9(6). * procedure division. accept DAT from date. * call "ICHEXA" using DAT. exhibit named DAT. transform DAT from ":;<=>?@ABC" to "0123456789". exhibit named DAT. stop " ". * stop run.

exhibit

                                                                 MX-1
exhibit  [changed]  [named]  [tallying]  Dat-1  ...
                                         Lit-1

Limitations: this format is IBM OSVS extension in the others dialect except MX and MF is not implemented, the extension tallying is implemented in MX only

stop Lit-1

                                                                 60-1
stop  Lit-1
    

COBOL language in brief - © Vlastimil Cevela 2006

Date 2006-06-03 - Text Builder 0.65 - Time 20:31:30